home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / fast278j.lzh / CR.F < prev    next >
Text File  |  1980-01-01  |  998b  |  65 lines
  1. #include fast32.fi
  2. #inpend=0
  3. #short
  4. var32 lines,tlines
  5.  
  6. on error
  7.     {
  8.     print bios
  9.     error msg "\dos.err"
  10.     print bios "!"
  11.     terminate
  12.     }
  13. on break error 999
  14.  
  15. ld=allocate 4096
  16. tlines=0
  17.  
  18. print bios "Files: ";
  19. inputs name
  20. print bios
  21. if peekb (name+2)=0 then error 999
  22.  
  23. find first name+2
  24. goto entry
  25.  
  26. forever
  27.     {
  28.     #errors off
  29.     find next
  30.     if error then goto dtotal
  31.     #errors on
  32.     entry:
  33.     moveb 13 from dta segment|dta offset+30 to name
  34.     curtoloc
  35.     prints name,0
  36.     open #1,name
  37.     lines=0
  38.  
  39.     file_loop:
  40.     len=read #1,65534 to ld|1
  41.     m=1
  42.     while m below len
  43.     {
  44.     m=searchb len-m from ld|m for 13
  45.     if m then lines++ else goto getn
  46.     m++
  47.     }
  48.  
  49.     getn:
  50.     if len=65534 then goto file_loop
  51.     close #1
  52.     print ,;:n32=lines:print32(' '):tlines+=lines
  53.     loctocur:print bios
  54.     test break
  55.     }
  56.  
  57. dtotal:
  58. print bios cr lf "Total Lines = ";
  59. curtoloc
  60. n32=tlines:print32(0)
  61. terminate
  62.  
  63. name:
  64. string 14
  65.